home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / flc.e < prev    next >
Encoding:
Text File  |  1996-01-27  |  471 b   |  22 lines
  1.  
  2. -> Copyright © 1995, Guichard Damien.
  3.  
  4. -> Compile an entire Eiffel system defined by its root class and its
  5. -> creation feature (creation feature must not have arguments).
  6.  
  7. OPT OSVERSION=36
  8.  
  9. MODULE '*system'
  10.  
  11. PROC main()
  12.   DEF myargs:PTR TO LONG,rdargs
  13.   myargs:=[NIL,NIL,NIL]
  14.   IF rdargs:=ReadArgs('CLASS/A,CREATION/A,FILE/A',myargs,NIL)
  15.     root(LowerStr(myargs[0]),LowerStr(myargs[1]),myargs[2])
  16.     FreeArgs(rdargs)
  17.   ELSE
  18.     WriteF('Bad Args!\n')
  19.   ENDIF
  20. ENDPROC
  21.  
  22.